www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\inc\ND_dings_post.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>



<%
dir_set="../"

%>

<!--#include file=conn.asp-->



<%



	Private Function getIP() 

		If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" Or InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then 
			strIPAddr = Request.ServerVariables("REMOTE_ADDR") 
		ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then 
			strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
			Actforip = Request.ServerVariables("REMOTE_ADDR")
		ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then 
			strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
			Actforip = Request.ServerVariables("REMOTE_ADDR")
		Else 
			strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
			Actforip = Request.ServerVariables("REMOTE_ADDR")
		End If 
		getIP = Replace(Trim(Mid(strIPAddr, 1, 30)), "'", "")
	End Function



okdod=1

'每天最多顶多少个
maaanumm=D_u_dings_d_num

if session("newdsoft_plnn_ip")<>"" then


if cstr(session("newdsoft_plnn_ip"))=getIP() then

else
session("newdsoft_plnn_ip")=getIP()
session("newdsoft_plnn_numd")=1
session("newdsoft_plnn_nn")=Now()
end if


if  DateDiff("s",session("newdsoft_plnn_nn"),Now())<3600 then

if session("newdsoft_plnn_numd")="" then session("newdsoft_plnn_numd")=1

session("newdsoft_plnn_numd")= clng(session("newdsoft_plnn_numd"))+1

if  clng(session("newdsoft_plnn_numd"))>maaanumm then
okdod=0


end if




else

session("newdsoft_plnn_numd")=1
session("newdsoft_plnn_nn")=Now()

end if
else

session("newdsoft_plnn_ip")=getIP()
session("newdsoft_plnn_nn")=Now()

session("newdsoft_plnn_numd")=1
End if


session("newdsoft_plnn_ip")=getIP()



'-----------------------------------------------------防刷新
If Request.Cookies("norefreshaa")<>"" Then

If DateDiff("s",Request.Cookies("norefreshaa"),Now())<3600 Then

if Request.Cookies("norefreshaa_numd")="" then Response.Cookies("norefreshaa_numd")=1




if clng(Request.Cookies("norefreshaa_numd"))>maaanumm then
okdod=0
else

Response.Cookies("norefreshaa_numd")=clng(Request.Cookies("norefreshaa_numd"))+1

end if


else


Response.Cookies("norefreshaa")=Now()

Response.Cookies("norefreshaa_numd")=1

Response.Cookies("norefreshaa").Expires=DateAdd("n",180,now())

Response.Cookies("norefreshaa_numd").Expires=DateAdd("n",180,now())

End IF
else

Response.Cookies("norefreshaa")=Now()

Response.Cookies("norefreshaa_numd")=1

Response.Cookies("norefreshaa").Expires=DateAdd("n",180,now())

Response.Cookies("norefreshaa_numd").Expires=DateAdd("n",180,now())

End if


'---------------------------------------------end--------防刷新


gggdct=0
bbbdct=0
if okdod=1 then



set rs44g=server.CreateObject("adodb.recordset")
rs44g.open "select * from "&request("biao")&" where id="&request("id")&"",conn,1,3

if not rs44g.eof then

nd_cc_chae_mdb="data\pdta\##%20%35cc_cace###.asa"


'On Error Resume Next
    'Dim ConnStr
        ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dir_set&nd_cc_chae_mdb)
    Set conn2 = Server.CreateObject("ADODB.Connection")
    conn2.open ConnStr
    If Err Then
        Err.Clear
        Set conn2 = Nothing
        Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
        Response.End
    End If
	
set rs44g21=server.CreateObject("adodb.recordset")
rs44g21.open "select top 1 * from reset_time",conn2,1,3
if not rs44g21.eof then	
	
dddtt=rs44g21("dings_reset_time_jilu")
if cstr(dddtt&"")="" or isdate(dddtt)<>true then
rs44g21("dings_reset_time_jilu")=now()
rs44g21.update
else
if day(dddtt)<>day(now()) then

conn2.execute("delete from dings_save")

rs44g21("dings_reset_time_jilu")=now()
rs44g21.update

end if

end if
else
rs44g21.addnew
rs44g21("dings_reset_time_jilu")=now()
rs44g21("search_reset_time_jilu")=now()
rs44g21.update

end if	
	
	
	
	
set rs44g2=server.CreateObject("adodb.recordset")
rs44g2.open "select * from dings_save where ding_ren_ip='"&getIP()&"' and ding_content_type='"&request("biao")&"' and ding_content_id='"&request("id")&"'",conn2,1,3
if not rs44g2.eof then

okdod=3
session("newdsoft_plnn_numd")= clng(session("newdsoft_plnn_numd"))-1
Response.Cookies("norefreshaa_numd")=clng(Request.Cookies("norefreshaa_numd"))-1
else

rs44g2.addnew

rs44g2("ding_ren_ip")=getIP()
rs44g2("ding_content_type")=request("biao")
rs44g2("ding_content_id")=request("id")
rs44g2("ding_time")=now()
rs44g2.update()





if cstr(rs44g("dings")&"")="" then
gggdct=1
rs44g("dings")=1
else
gggdct=clng(rs44g("dings"))+1
rs44g("dings")=clng(rs44g("dings"))+1
end if


rs44g.update()
end if

rs44g2.close
conn2.close
set conn2=nothing



end if

rs44g.close



end if


response.ContentType="text/xml"

response.write "<?xml   version=""1.0""   encoding=""utf-8""?>"


response.write "<aaaa><affff><![CDATA["


response.write gggdct

response.write 	"]]></affff>"





response.write "<bffff>"&okdod




response.write 	"</bffff></aaaa>"







%>